;:poke56,117:clr
;:sys36864
	;.opt oo
	*= 30000
setx	=$e9f0
bild	=$d1
bis	=247
tmp	=249
page	=648
farb	=$f3
	jmp wrap
pull	lda #230
	sta tmp
	lda page
	clc
	adc #3
	sta tmp+1
	ldy #0
l	lda tmp+1
	cmp bis+1
	bcc en
	bne we
	lda tmp
	cmp bis
	bcs we
en	lda #32
	sta (bis),y
	rts
we	jsr col
	lda (tmp),y
	inc tmp
	bne noinc
	inc tmp+1
noinc	sta (tmp),y
	lda (farb),y
	inc farb
	bne nocy
	inc farb+1
nocy	sta (farb),y
	lda tmp
	sec
	sbc #2
	sta tmp
	lda tmp+1
	sbc #0
	sta tmp+1
	jmp l
col	lda tmp
	sta farb
	lda tmp+1
	and #3
	ora #$d8
	sta farb+1
	rts
wrap	ldx #0
main	cpx #25
	bne weiter
	rts
weiter	jsr setx
	ldy #39
	lda (bild),y
	cmp #32
	beq ok
such	dey
	bmi stop
	lda (bild),y
	cmp #32
	bne such
	tya
	clc
	adc bild
	sta bis
	lda bild+1
	adc #0
	sta bis+1
	jsr pull
	jmp main
ok	inx
	jmp main
stop	rts